   2 . MATCH
   5 .  ED G
  10 clear ;BC=56;FC=55
  14 CY=0;CX=-30;print "M A T C H"
  15 for C=1to 500;next C;clear 
  20 CY=0;print "       TRY TO MATCH";print ;print "    PAIRS OF NUMBERS !"
  30 print ;print ;print "      KEY IN LETTERS";print ;print "    FOR YOUR GUESSES !"
  32 print ;print ;print "      1 OR 2 PLAYERS ?"
  34 P=KP
  37 if P>50goto 34
  38 if P<49goto 34
  39 CX=0;TV=P;Q=P-48
  40 print 
  60 K=0;J=0;S=0;T=0;clear 
  80 CY=0;CX=-15;print "WAIT !"
 100 for Z=0to 85;@(Z)=0;next Z
 130 U=rnd (10)-1
 150 if @(U)=1goto 130
 160 @(U)=1;goto 170
 170 for Z=1to 2
 175 W=rnd (20)
 180 if @(64+W)>0goto 175
 185 @(64+W)=U
 190 next Z
 192 for Z=0to 9;if @(Z)=0goto 130
 196 next Z;clear 
 200 X=-60;Y=30;Z=64
 210 for Y=30to -30step -20
 220 for X=-60to 60step 30
 230 Z=Z+1;CX=X;CY=Y;TV=Z
 250 box X,Y,20,18,3
 260 next X;next Y
 300 for P=1to Q
 302 CY=0;CX=75;print #0,P
 305 A=0
 310 if P=1T=T+1;BC=8;FC=7
 311 if P=2S=S+1;BC=80;FC=7
 320 W=KP
 325 if W<65goto 320
 326 if W>84goto 320
 327 if @(W)=10goto 320
 330 gosub 400+W
 340 A=20
 350 V=KP
 355 if V<65goto 350
 356 if V>84goto 350
 357 if V=Wgoto 350
 358 if @(V)=10goto 350
 360 gosub 400+V
 370 goto 600
 465 X=-60;Y=30;goto 490
 466 X=-30;Y=30;goto 490
 467 X=0;Y=30;goto 490
 468 X=30;Y=30;goto 490
 469 X=60;Y=30;goto 490
 470 X=-60;Y=10;goto 490
 471 X=-30;Y=10;goto 490
 472 X=0;Y=10;goto 490
 473 X=30;Y=10;goto 490
 474 X=60;Y=10;goto 490
 475 X=-60;Y=-10;goto 490
 476 X=-30;Y=-10;goto 490
 477 X=0;Y=-10;goto 490
 478 X=30;Y=-10;goto 490
 479 X=60;Y=-10;goto 490
 480 X=-60;Y=-30;goto 490
 481 X=-30;Y=-30;goto 490
 482 X=0;Y=-30;goto 490
 483 X=30;Y=-30;goto 490
 484 X=60;Y=-30;goto 490
 490 goto 500+A
 500 box X,Y,18,16,2
 510 CX=X;CY=Y;print #0,@(W)
 517 return 
 520 box X,Y,18,16,2
 525 CX=X;CY=Y;print #0,@(V)
 540 return 
 600 if @(W)=@(V)goto 700
 620 if @(W)#@(V)goto 800
 700 @(W)=10;@(V)=10
 710 if P=1 K=K+1
 711 if P=2 J=J+1
 720 if K+J=10goto 900
 730 A=450
 740 gosub 400+W
 750 gosub 400+V
 790 goto 305
 800 A=350
 820 gosub 400+W
 825 A=360
 830 gosub 400+V
 835 next P
 840 goto 300
 850 box X,Y,20,18,2
 855 CX=X;CY=Y;TV=W;goto 880
 860 box X,Y,20,18,2
 865 CX=X;CY=Y;TV=V
 880 box X,Y,20,18,3;return 
 900 clear 
 920 CY=0;CX=-24
 930 print "   GAME  OVER"
 931 if Q=2goto 970
 935 print ;print ;print "       ",T,"  TRYS !"
 940 goto 15
 950 box X,Y,20,20,2
 960 return 
 970 print ;print ;print "  #1  MATCHED",K
 980 print "  #2         ",J
 990 goto 15
:return ;run 